module demo

    implicit none
    real(8), bind(c) :: x(3)

    interface
        subroutine init() bind(c)
        end subroutine init
    end interface

    interface
        subroutine prt() bind(c)
        end subroutine prt
    end interface

end module demo
